| Filename | (eval 1244)[/usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Document.pm:78] |
| Statements | Executed 5 statements in 3µs |
| Eval Invoked At | /usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Document.pm line 78 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | sub { | ||||
| 2 | 1 | 300ns | my $context = shift || die "template sub called without context\n"; | ||
| 3 | 1 | 2µs | 1 | 2µs | my $stash = $context->stash; # spent 2µs making 1 call to Template::Context::stash |
| 4 | 1 | 300ns | my $output = ''; | ||
| 5 | 1 | 100ns | my $_tt_error; | ||
| 6 | |||||
| 7 | 1 | 800ns | eval { BLOCK: { | ||
| 8 | $output .= "<div class=\"gradient\">\n<h1 id=\"logo\"><a href=\"/cgi-bin/koha/mainpage.pl\">"; | ||||
| 9 | #line 2 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/home-search.inc" | ||||
| 10 | $output .= $stash->get('LibraryName'); | ||||
| 11 | $output .= "</a></h1><!-- Begin Main page Resident Search Box -->\n\n<div id=\"header_search\">\n "; | ||||
| 12 | #line 5 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/home-search.inc" | ||||
| 13 | $output .= $context->include('patron-search-box.inc'); | ||||
| 14 | $output .= "\n"; | ||||
| 15 | #line 13 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/home-search.inc" | ||||
| 16 | if (($stash->get('CAN_user_circulate'))) { | ||||
| 17 | $output .= "\n<div id=\"checkin_search\" class=\"residentsearch\">\n <p class=\"tip\">Scan a barcode to check in:</p>\n <form method=\"post\" action=\"/cgi-bin/koha/circ/returns.pl\" autocomplete=\"off\">\n <input name=\"barcode\" class=\"head-searchbox\" id=\"ret_barcode\" size=\"40\" accesskey=\"r\" />\n <input value=\"Submit\" class=\"submit\" type=\"submit\" />\n </form>\n</div>"; | ||||
| 18 | } | ||||
| 19 | |||||
| 20 | $output .= "\n"; | ||||
| 21 | #line 22 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/home-search.inc" | ||||
| 22 | if (($stash->get('CAN_user_borrowers'))) { | ||||
| 23 | $output .= "\n<div id=\"patron_search\" class=\"residentsearch\">\n <p class=\"tip\">Enter patron card number or partial name:</p>\n <form action=\"/cgi-bin/koha/members/member.pl\" method=\"post\">\n <input name=\"searchmember\" class=\"head-searchbox\" id=\"searchmember\" size=\"40\" type=\"text\"/>\n <input type=\"hidden\" name=\"quicksearch\" value=\"1\" />\n <input value=\"Submit\" class=\"submit\" type=\"submit\" />\n </form>\n</div>"; | ||||
| 24 | } | ||||
| 25 | |||||
| 26 | $output .= "\n"; | ||||
| 27 | #line 30 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/home-search.inc" | ||||
| 28 | if (($stash->get('CAN_user_catalogue'))) { | ||||
| 29 | $output .= "\n<div id=\"catalog_search\" class=\"residentsearch\">\n <p class=\"tip\">Enter search keywords:</p>\n <form action=\"/cgi-bin/koha/catalogue/search.pl\" method=\"get\" id=\"cat-search-block\">\n <input type=\"text\" name=\"q\" id=\"search-form\" class=\"head-searchbox\" size=\"40\" accesskey=\"q\" />\n <input type=\"submit\" class=\"submit\" value=\"Submit\"/>\n </form>\n</div>"; | ||||
| 30 | } | ||||
| 31 | |||||
| 32 | $output .= "\n\n<ul>\n "; | ||||
| 33 | #line 33 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/home-search.inc" | ||||
| 34 | if (($stash->get('CAN_user_circulate'))) { | ||||
| 35 | $output .= "<li><a onclick=\"keep_text(0)\" href=\"#circ_search\">Check out</a></li>"; | ||||
| 36 | } | ||||
| 37 | |||||
| 38 | $output .= "\n "; | ||||
| 39 | #line 34 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/home-search.inc" | ||||
| 40 | if (($stash->get('CAN_user_circulate'))) { | ||||
| 41 | $output .= "<li><a onclick=\"keep_text(1)\" href=\"#checkin_search\">Check in</a></li>"; | ||||
| 42 | } | ||||
| 43 | |||||
| 44 | $output .= "\n "; | ||||
| 45 | #line 35 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/home-search.inc" | ||||
| 46 | if (($stash->get('CAN_user_borrowers'))) { | ||||
| 47 | $output .= "<li><a onclick=\"keep_text(2)\" href=\"#patron_search\">Search patrons</a></li>"; | ||||
| 48 | } | ||||
| 49 | |||||
| 50 | $output .= "\n "; | ||||
| 51 | #line 36 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/home-search.inc" | ||||
| 52 | if (($stash->get('CAN_user_catalogue'))) { | ||||
| 53 | $output .= "<li><a onclick=\"keep_text(3)\" href=\"#catalog_search\">Search the catalog</a></li>"; | ||||
| 54 | } | ||||
| 55 | |||||
| 56 | $output .= "\n</ul>\n\n</div><!-- /header_search -->\n</div><!-- /gradient -->\n<!-- End Main page Resident Search Box -->\n"; | ||||
| 57 | } }; | ||||
| 58 | if ($@) { | ||||
| 59 | $_tt_error = $context->catch($@, \$output); | ||||
| 60 | die $_tt_error unless $_tt_error->type eq 'return'; | ||||
| 61 | } | ||||
| 62 | |||||
| 63 | return $output; | ||||
| 64 | } | ||||
| 65 | |||||
| 66 | ; |